Yeni Kontroller: TreeView
Zaman zaman Visual Basic 4.0 ile gelen yeni kontrollere de≡iniyoruz. ▌■te bu yeni kontrollerden birisi: Treeview. Windows 95Æin Gezgininde sol klas÷r penceresi bu kontrolle olu■turulmu■. Kontrolⁿn kullan²m² gayet basit, nas²l kullan²ld²≡²n² merak ediyorsan²z hemen bo■ bir formun ⁿzerine bir Treeviev kontrolⁿ yarat²n ve a■a≡²daki kodlar² yazmaya ba■lay²n. Kontrolⁿn kullan²m² hakk²ndaki tⁿm aτ²klamalar kodlar²n aras²nda verilmi■tir.
Private Sub Form_Load()
Dim nodX As Node
' Bir metni ana ba■l²k olarak atamak iτin a■a≡²daki gibi bir komut kullanmal²s²n²z.
Set nodX = TreeView1.Nodes.Add(, , , "Mⁿzik")
'A■a≡²dakinin amac² 1. Ba■l²≡a bir alt ba■l²k eklemektir.
' Ekledi≡iniz altba■l²klar eklenme s²ralar²na g÷re g÷rⁿntⁿlenir.
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Jazz")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Pop")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Klasik")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Rock")
' Pop alt ba■l²≡² alt²na 2.altba■l²k daha ekliyoruz.
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Techno")
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Rave")
' 2. Anaba■l²≡² ekliyoruz.
Set nodX = TreeView1.Nodes.Add(, , , "Resim")
' Tⁿm a≡ac² g÷stermek iτin kontrolⁿ tazele.
nodX.EnsureVisible
End Sub
' A≡ac²n dallar²ndan birine t²kland²≡²nda...
Private Sub TreeView1_NodeClick(ByVal Node As Node)
mesaj$ = "T²klad²≡²n²z Liste Seτene≡i: " + Node.Text
tip = 64
baslik$ = "Treeview ╓rne≡i"
' Hangi dala t²kland²≡²n² s÷yle.
MsgBox mesaj$, tip, baslik$
End Sub